str_sql = "SP_INCLUI_ORCPED " & v_orcamento & ",'" & IIf(lbl_status.Caption = "ORAMENTO", "O", "P") & "','" & _
                Format(msk_dt_orc.Text, "MM/DD/YYYY") & "'," & _
                txt_cli.Text & ",'" & TXT_Nome.Text & "',NULL,NULL," & _
                CMB_Vendedor.ItemData(CMB_Vendedor.ListIndex) & _
                "," & Replace(txt_comiss.Text, ",", ".") & ",0,'" & Format(msk_dt_festa.Text, "MM/DD/YYYY") & "','" & _
                msk_ini_festa.Text & "','" & msk_fim_festa.Text & "','" & txt_local.Text & _
                "','" & CMB_Motivo.ItemData(CMB_Motivo.ListIndex) & "'," & _
                CMB_Evento.ItemData(CMB_Evento.ListIndex) & "," & _
                CMB_Padrao.ItemData(CMB_Padrao.ListIndex) & "," & _
                IIf(txt_numpes.Text = "", 0, txt_numpes.Text) & "," & CMB_propaganda.ItemData(CMB_propaganda.ListIndex) & "," & _
                Replace(IIf(msk_custo_tot.Text = "", 0, msk_custo_tot.Text), ",", ".") & "," & _
                Replace(IIf(msk_cobrar_pgt.Text = "", 0, msk_cobrar_pgt.Text), ",", ".") & "," & _
                Replace(IIf(MSK_DESCONTO.Text = "", 0, MSK_DESCONTO.Text), ",", ".") & ",0," & _
                IIf(msk_dt_valid.Text = "__/__/____", "NULL", "'" & _
                Format(msk_dt_valid.Text, "MM/DD/YYYY") & "'") & "," & IIf(msk_telemkt.Text = "__/__/____", "Null", "'" & Format(msk_telemkt.Text, "MM/DD/YYYY") & "'") & ",'" & _
                txt_obs.Text & "','" & txt_forma_pagto.Text & "'," & _
                IIf(msk_dt_aprova.Text = "__/__/____", "Null", "'" & Format(msk_dt_aprova.Text, "MM/DD/YYYY") & "'") & "," & _
                IIf(txt_numpes.Text = "", 0, txt_numpes.Text) & ",'" & v_user & "',NULL,0,'" & Chk_Credito.Value & "','" & _
                chk_gerencia.Value & "'," & Replace(IIf(msk_sugerido.Text = "", 0, msk_sugerido.Text), ",", ".") & "," & Replace(IIf(msk_cobrar.Text = "", 0, msk_cobrar.Text), ",", ".") & "," & _
                Replace(IIf(msk_margem.Text = "", 0, msk_margem.Text), ",", ".") & "," & IIf(msk_cobrar_pgt.Text = "", 0, Replace(msk_cobrar_pgt.Text, ",", ".")) & "," & IIf(cmb_desconto.ListIndex = -1, 0, cmb_desconto.ListIndex) & _
                "," & cmb_ocorre.ItemData(cmb_ocorre.ListIndex)
    dbsL_Cliente.Execute str_sql



Lembrando que a varivel dbsl_cliente  minha varivel 
ADODB.Connection,  a varivel que faz a conexo com 
a base de dados, no caso estou usando uma base de dados SQL Server 2000.
    